home *** CD-ROM | disk | FTP | other *** search
/ Scene 96 / Scene 96 International Edition (Zyklop Software) (Disc 2) (1997).iso / misc / coding / cod_misc / cod1ex1.pas < prev    next >
Pascal/Delphi Source File  |  1996-07-20  |  207b  |  11 lines
  1. Uses Cod1,Crt;
  2.  
  3. Begin
  4. If Fex('Screen.Bin') = True Then Begin
  5.  HideCursor;
  6.  Bin2Scr('Screen.Bin');
  7.  ReadKey;
  8.  ShowCursor;
  9.  LineFade(7,15,8,1,WhereY,'Coders On Dope Unit Test Routine #1');
  10.  End;
  11. End.